home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / jockdem4.arc / LISTDEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  1KB  |  48 lines
  1. Program ListTTT5_Demo_1;
  2.  
  3. Uses CRT, DOS, FastTTT5, WinTTT5, ListTTT5;
  4.  
  5. const
  6.     ListWidth = 60;
  7. type
  8.     StrList  = string[ListWidth];
  9.  
  10. var
  11.     MyList   : array[1..30] of StrList;
  12.  
  13.  Procedure Fill_MyList;
  14.  {}
  15.  begin
  16.      MyList[1] := 'Erica';
  17.      MyList[2] := 'Alison';
  18.      MyList[3] := 'Barbara';
  19.      MyList[4] := 'Sarah';
  20.      MyList[5] := 'Katy';
  21.      MyList[6] := 'Janice';
  22.      MyList[7] := 'Susan';
  23.      MyList[8] := 'Serita';
  24.      MyList[9] := 'Anne';
  25.      MyList[10] := 'Michelle';
  26.      MyList[11] := 'Theresa';
  27.      MyList[12] := 'Shirley';
  28.      MyList[13] := 'Sue';
  29.      MyList[14] := 'Marianne';
  30.      MyList[15] := 'Wilma';
  31.      MyList[16] := 'Beatrice';
  32.      MyList[17] := 'Regina';
  33.      MyList[18] := 'Sudofed';
  34.      MyList[19] := 'Trojan';
  35.      MyList[20] := 'Whip';
  36.  end; {of proc Fill_MyList}
  37.  
  38. begin
  39.     Fill_MyList;
  40.     ClrScr;
  41.     Show_List(MyList,ListWidth,20);
  42.     ClearText(1,1,80,25,white,black);
  43.     WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
  44.     WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  45.     GotoXY(1,5);
  46. end.
  47.  
  48.